home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / menuman.zip / SIGN.BAS < prev    next >
BASIC Source File  |  1992-04-06  |  1KB  |  38 lines
  1. ' For use with RUNMENU.BAS or as an example of graphics
  2.  
  3. DIM sign$(16)
  4.  
  5. CLS
  6. sign$(1) = STRING$(80, 223)
  7. sign$(2) = "  ╔═══╗    ╔═══╗"
  8. sign$(3) = "  ║   ║    ║   ║"
  9. sign$(4) = "  ║   ║    ║   ║"
  10. sign$(5) = "  ║   ║    ║   ║"
  11. sign$(6) = "  ║   ║    ║   ║"
  12. sign$(7) = "  ║   ║    ║   ║"
  13. sign$(8) = "  ║   ╚════╝   ║"
  14. sign$(9) = "  ║            ║ ╔══════ ╔═╗       ║ ║       ║ ╔══╗  ╔══╗  ╔════╗ ╔═╗       ║"
  15. sign$(10) = "  ║            ║ ║       ║ ╚═╗     ║ ║       ║ ║  ║  ║  ║  ║    ║ ║ ╚═╗     ║"
  16. sign$(11) = "  ║            ║ ║       ║   ╚═╗   ║ ║       ║ ║  ╚══╝  ║  ║    ║ ║   ╚═╗   ║"
  17. sign$(12) = "  ║            ║ ║════   ║     ╚═╗ ║ ║       ║ ║        ║  ║════║ ║     ╚═╗ ║"
  18. sign$(13) = "  ║            ║ ║       ║       ╚═║ ║       ║ ║        ║  ║    ║ ║       ╚═║"
  19. sign$(14) = "  ║            ║ ║       ║         ║ ║       ║ ║        ║  ║    ║ ║         ║"
  20. sign$(15) = "  ║            ║ ╚══════ ║         ║ ╚═══════╝ ║        ║  ║    ║ ║         ║"
  21. sign$(16) = STRING$(80, 220)
  22.  
  23. FOR set = 1 TO 16
  24.       LOCATE set + 3, 1: PRINT sign$(set)
  25. NEXT
  26.  
  27. SLEEP 15
  28.  
  29. CLS
  30.  
  31. LOCATE 13, 20: PRINT "SIGN.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
  32.  
  33. SLEEP 7
  34. CLS
  35.  
  36. RUN "RUNMENU"
  37.  
  38.